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MMMS (Calculation of Minimum, Mean, Maximum and Standard Deviation) 


DECUS Program Library Write-up 


DECUS No. 8-320 


ABSTRACT 


The program calculates the minimum, arithmetic mean, maximum, and standard deviation 
ot any number of sets of up to 20 variables, presented in a standard order. It is intended 
as a simple method of summarizing multivariate data, and is used as an auxiliary program 
tor other multivariate programs, for example, the CCMP program. 

TAPES REQUIRED 


1 * f gT™ of program tape - The program is written in the PDP-8 FORTRAN-D lanquaae 
and is in the source language. ' 

2. Fonno^datatage - The data to be analyzed should be punched onto paper tape in the 
A5CII code. The data for the several variables should be entered in a standard order, e.g. 
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Numbers may be entered as indices or decimal numbers, or, if required, as floating point 
numbers with exponents. , 

OPERATING INSTRUCTIONS 


Normal for the disk operating system. The data tape should be loaded into the high-speed 
reader before continuing after the teletype has printed READY. The program will request 
the entry of the number of variables and sets, and these should be entered on the teletype 
and each number terminated by either space or new line. 

OUTPUT 


j . .* , * ^ mean, the maximum, and the standard 

deviation for each variable included in the data. 

STORAGE AND LIMITATIONS 


Norma! for FORTRAN-D. The number of variables must not exceed 20 in the present program, 
but this restriction could easily be relaxed by changing the DIMENSION statement at the 
beginning of the program. There is no limit to the number of sets. 













METHOD 


The program employs the efficient, single-pass system for the computation of the corrected 
sum of squares o^ deviations and the arithmetic mean. 


MMMS 


C PROGRAM TO COMPUTE MINIMUM, MEAN, MAXIMUM , STANDARD DEVIATION 

DIMENSION X(20),SX(20),XMIN(20),XMAX(20), SD(20) 

TYPE 101 

101 FORMAT (/, "ENTER NO OF VARIABLES AND SETS",/) 

ACCEPT 102, M,N 

102 FORMAT (1,1) £ 

DO 10 1=1, M 

SX(l)=0-0 
XMIN(I)=1 .0E+9 
XMAX(I)=-1 .0E+9 
SD(l)=0.0 

10 CONTINUE 

DO 20 1=1, N 
E 1=1 

DO 20 J=1,M 
READ 2,103,X(J) 

103 FORMAT (E) 

IF (X(J)-XMIN(J) ) 1,2,2 

1 XMIN(J)=X(J) 

2 IF (X(J)-XMAX(J) ) 3,3,4 

4 XMAX(J)=X(J) 

3 SD(J)=SD(J)+(X(J)-SX(J) )*(X(J)-SX(J) )*0 -0-1-0/ED 

SX(J)=SX(J)+(X(J)-SX(J) )/EI * 

20 CONTINUE 

EN=N 

DO 30 1=1, M 

SD(I)=SQTF( (SD( I) )/(EN—1.0) ) 

WRITE 1, 104,1, XMIN(I), SX(I), XMAX(I), SD(I) 

104 FORMAT (I, E,E,E,E) 

30 CONTINUE 

STOP 

END 
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